Don't bug out in xml-escape-string if invalid characters aren't present

* lisp/xml.el (xml-escape-string): Don't bug out if invalid
characters aren't present.

diff --git a/lisp/xml.el b/lisp/xml.el
index 767cf04284634d1673809d071b5184b6d8210418..10ef8e2087add31a40b94199441ab5504a640e1d 100644 (file)
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -1032,7 +1032,8 @@ by https://www.w3.org/TR/xml/#charsets), signal an error of type
     (insert string)
     (goto-char (point-min))
     (when (re-search-forward
-           "[^\u0009\u000A\u000D\u0020-\uD7FF\uE000-\uFFFD\U00010000-\U0010FFFF]")
+           "[^\u0009\u000A\u000D\u0020-\uD7FF\uE000-\uFFFD\U00010000-\U0010FFFF]"
+           nil t)
       (signal 'xml-invalid-character (list (char-before) (match-beginning 0))))
     (dolist (substitution '(("&" . "&")
                            ("<" . "&lt;")